【VBA】学习记录1:利用命令按钮刷新数据透视表 您所在的位置:网站首页 vba 数据透视图 【VBA】学习记录1:利用命令按钮刷新数据透视表

【VBA】学习记录1:利用命令按钮刷新数据透视表

2023-08-20 23:10| 来源: 网络整理| 查看: 265

1 背景

今年想重新做个记账表。 之前用过手机APP,做过手动记账的A4模板,都各有优缺点。APP方便但是耗眼睛,纸档的记录方便核算不方便,想不利于做数据分析。 最终敲定还是用Excel(用的WPS)。平时记录基础数据,利用数据透视表汇总分析。 记账表 这里有一个问题,基础数据更新后,数据透视表不会自动更新。手动更新的方法有几种,菜单栏选择刷新或者右键单击数据透视表更新都不够直观,所以想到设置刷新按钮,利用VBA实现。 在这里插入图片描述

2 VBA代码

网上搜索代码,一般给出的方法如下:

ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh

或者

Worksheets("透视").PivotTables("数据透视表1").PivotCache.Refresh

刚开始用的第一种,试了几次都不行。第二天用的第二种,成了。还没深究原因,先记录下来。

Worksheets("1-流水账").PivotTables("数据透视表-流水账").PivotCache.Refresh

在这里插入图片描述

3 方法总结 输入基础数据(流水账);生成数据透视表,注意基础数据选择整列,这样后续更新的数据透视表不会遗漏;菜单栏选择开发工具/命令按钮,插入按钮控件;在设计模式下,右键单击按钮,选择命令按钮 对象/编辑,编辑按钮名称为“更新数据透视表”;菜单栏或者右键选择查看代码,在VB编辑器中输入代码,保存。退出设计模式,点击按钮,查看是否运行正常。

注意:表单名、数据透视表名称需一一对应。

4 后记

这是我在实际应用中使用VBA的第一个案例。记录下来。 记账表打算摸索着优化,成熟后再作为模板发上来。 希望都财源滚滚,蒸蒸日上~

【原创内容,引用请注明出处:【VBA】学习记录1:设置按钮刷新数据透视表】



【本文地址】

公司简介

联系我们

今日新闻

    推荐新闻

    专题文章
      CopyRight 2018-2019 实验室设备网 版权所有